home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Markets / Education / HyperCard In Education / Plate Tectonics / card_4260.txt < prev    next >
Text File  |  1990-04-02  |  4KB  |  151 lines
  1. -- card: 4260 from stack: in
  2. -- bmap block id: 2474
  3. -- flags: 0000
  4. -- background id: 2769
  5. -- name: Subduction Boundaries
  6. ----- HyperTalk script -----
  7. on OpenCard
  8.   global buttonname
  9.   put the short name of me into buttonname
  10.   set the hilite of background button buttonname to true
  11. end OpenCard
  12.  
  13.  
  14. on CloseCard
  15.   global buttonname
  16.   put the short name of me into buttonname
  17.   set the hilite of background button buttonname to false
  18.   repeat with i=1 to the number of card fields
  19.     hide card field i
  20.   end repeat
  21.   hide cd btn id 7
  22. end CloseCard
  23.  
  24.  
  25.  
  26. -- part 5 (button)
  27. -- low flags: 00
  28. -- high flags: A004
  29. -- rect: left=184 top=74 right=100 bottom=326
  30. -- title width / last selected line: 0
  31. -- icon id / first selected line: 0 / 0
  32. -- text alignment: 1
  33. -- font id: 0
  34. -- text size: 12
  35. -- style flags: 0
  36. -- line height: 16
  37. -- part name: Subduction
  38. ----- HyperTalk script -----
  39. on mouseUp
  40.  
  41.  
  42.   global fieldname
  43.   lock screen
  44.   set the visible of card field "subduction" to not the visible of card field "subduction"
  45.   set the visible of card btn id 7 to not the visible of card btn id 7
  46.   unlock screen with visual dissolve
  47.  
  48. end mouseUp
  49.  
  50.  
  51.  
  52. -- part 3 (field)
  53. -- low flags: 81
  54. -- high flags: 0004
  55. -- rect: left=119 top=59 right=316 bottom=439
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 0 / 0
  58. -- text alignment: 0
  59. -- font id: 3
  60. -- text size: 12
  61. -- style flags: 0
  62. -- line height: 16
  63. -- part name: subduction
  64. ----- HyperTalk script -----
  65. on mouseUp
  66.   set locktext of me to true
  67.   global fieldname
  68.   lock screen
  69.   hide me
  70.   --hide card button fieldname
  71.  
  72.   hide card btn id 7
  73.   unlock screen with visual dissolve
  74. end mouseup
  75.  
  76.  
  77. -- part 7 (button)
  78. -- low flags: 80
  79. -- high flags: C000
  80. -- rect: left=120 top=60 right=84 bottom=437
  81. -- title width / last selected line: 0
  82. -- icon id / first selected line: 0 / 0
  83. -- text alignment: 1
  84. -- font id: 2
  85. -- text size: 18
  86. -- style flags: 256
  87. -- line height: 24
  88. -- part name: Subduction
  89. ----- HyperTalk script -----
  90. on mouseUp
  91.   lock screen
  92.   set the visible of card field "subduction" to not the visible of card field "subduction"
  93.   hide me
  94.   unlock screen with visual dissolve
  95. end mouseUp
  96.  
  97.  
  98.  
  99. -- part 8 (button)
  100. -- low flags: 00
  101. -- high flags: 0000
  102. -- rect: left=2 top=99 right=283 bottom=256
  103. -- title width / last selected line: 0
  104. -- icon id / first selected line: 0 / 0
  105. -- text alignment: 1
  106. -- font id: 0
  107. -- text size: 12
  108. -- style flags: 0
  109. -- line height: 16
  110. -- part name: 
  111. ----- HyperTalk script -----
  112. on mouseUp
  113.   go to card id 13247
  114. end mouseUp
  115.  
  116.  
  117.  
  118.  
  119. -- part 9 (button)
  120. -- low flags: 00
  121. -- high flags: 0000
  122. -- rect: left=255 top=98 right=283 bottom=511
  123. -- title width / last selected line: 0
  124. -- icon id / first selected line: 0 / 0
  125. -- text alignment: 1
  126. -- font id: 0
  127. -- text size: 12
  128. -- style flags: 0
  129. -- line height: 16
  130. -- part name: 
  131. ----- HyperTalk script -----
  132. on mouseUp
  133.   go to card id 13375
  134. end mouseUp
  135.  
  136.  
  137.  
  138.  
  139. -- part contents for background part 1
  140. ----- text -----
  141. Subduction Boundaries
  142.  
  143. -- part contents for card part 3
  144. ----- text -----
  145.  
  146.  
  147. Subduction is the process by which one plate plunges below another. The "heavier" (more dense) ocean plate subducts under another plate. An ocean trench  is always formed as part of the lithosphere is pulled down with the plunging plate.
  148. If subduction involves another ocean plate then an island arc is formed (like Japan or the Aleutians).
  149. If subduction involves an ocean plate and a continental plate then a mountain range results.
  150.  
  151. PUSH THE "SUBDUCTION BOUNDARIES" BUTTON BELOW TO SEE EXAMPLES OF PLATE INTERACTIONS.